home *** CD-ROM | disk | FTP | other *** search
- %%BeginFile: adobe_psp_lwnames
- %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
- /fontstring(|______ )def
- /fontname{
- currentdict/FontName known{
- fontstring 0
- currentdict/FontName get fontstring 7 50 getinterval{cvs}stopped{
- pop pop pop pop/customfont
- }{
- length 7 add getinterval cvn
- }ifelse
- }{
- /customfont
- }ifelse
- }bd
- /copyfontdict Z
- /rename{
- copyfontdict fontname currentdict end definefont pop
- }bd
- %%EndFile
-